﻿Imports JuegosLanBackend

Public Class registrarcabina

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load


    End Sub

    Private Sub regnom_TextChanged(sender As System.Object, e As System.EventArgs) Handles regnom.TextChanged

       


    End Sub

    Private Sub botguar_Click(sender As System.Object, e As System.EventArgs) Handles botguar.Click


        Dim a = Me.regnom.Text
        Dim b = Me.regdir.Text



        Dim regiscab As New CabinaNegocio

        regiscab.insertar(a, b)
        MsgBox("Se inserto con exito")

        regnom.Clear()
        regdir.Clear()


    End Sub
End Class